home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 117 / MacAddict 117.dmg / Software / Utilities / Tidy Up 1.0.9 (shareware).dmg / Tidy Up! / Tidy Up!.app / Contents / Resources / MP3Header.pl < prev    next >
Encoding:
Perl Script  |  2006-02-09  |  291 b   |  16 lines
  1. #!/usr/bin/perl
  2. #
  3. #  Copyright (C)2005 Giuseppe Giunto
  4. #  Reads data header from MP3 files
  5. #  URL: http://www.hyperbolicsoftware.com/
  6. #
  7.  
  8.  
  9. use MP3::Info;
  10.  
  11. $i = -1;
  12. while (($filePath = @ARGV[++$i])) {
  13.     my $info = get_mp3info($filePath);
  14.     printf "%f#_#%d\n", $info->{SECS}, $info->{BITRATE};
  15. }
  16.